home *** CD-ROM | disk | FTP | other *** search
GW-BASIC | 1980-01-01 | 409 b | 20 lines |
- 1 SCREEN 1,0
- 2 KEY OFF
- 11 DEF SEG= &HB800
- 19 CLS:COLOR 1,4
- 21 BLOAD "PICTURE.AAA",0
- 31 FOR I = 1 TO 6000:NEXT
- 41 BLOAD "MILO.AAA"
- 42 COLOR 1,1
- 51 FOR I = 1 TO 6000:NEXT
- 55 BLOAD "OP.AAA"
- 56 COLOR 0,0
- 57 FOR I = 1 TO 6000:NEXT
- 61 BLOAD "OPUS.AAA"
- 71 FOR I = 1 TO 6000:NEXT
- 81 BLOAD "OPUS2.AAA"
- 91 FOR I = 1 TO 6000:NEXT
- 100 CLS:SCREEN 2:LOCATE 10,13:PRINT"Thank you and look for more slides by Kristik."
- 101 LOCATE 12,15:PRINT" Call the Hotel California at 201-327-8245"
- 102 FOR I = 1 TO 6500:NEXT:BEEP:SYSTEM
-